home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAEQU11.ZIP / UB.PPS < prev   
Text File  |  1995-11-15  |  313b  |  14 lines
  1.     string tmpbuf
  2.  
  3.     tmpbuf = ppepath() + "EQUTMP." + string(pcbnode())
  4.     if (exist(tmpbuf)) then
  5.         delete tmpbuf
  6.     endif
  7.  
  8.     tmpbuf = ppepath() + "ATTACH." + string(pcbnode())
  9.     if (!exist(tmpbuf)) then
  10.         fopen 1, tmpbuf, O_WR, S_DW
  11.         fclose 1
  12.     endif
  13.     kbdstuff "UB"
  14.